home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / Apple II Getting down to Basic / NUMERIC1.bas < prev    next >
Encoding:
BASIC Source File  |  1988-02-17  |  15.6 KB  |  138 lines
  1. 0  ONERR  GOTO 1351
  2. 1  LET IN$ = "X":TT = 0:BT = 24:M = 0: GOSUB 561: GOSUB 551: GOSUB 681: HOME :F$ = "NUMERIC1.TEXT": GOSUB 1321: GOSUB 611: GOSUB 471: POKE  -16297,0: POKE  -16299,0: POKE  -16300,0: POKE  -16304,0
  3. 11  HPLOT 10,159 TO 10,150 TO 269,150 TO 269,159: HCOLOR= 0: FOR HD = 151 TO 159: HPLOT 100,HD TO 268,HD: NEXT HD: FOR SS = 1 TO 5: GOSUB 611: GOSUB 471: NEXT SS: POKE  -16298,0: POKE  -16300,0: POKE  -16303,0: GOSUB 611: GOSUB 471: GOSUB 611: GOSUB 471: GOSUB 611: GOSUB 471: GOSUB 611: GOSUB 471:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 1: SPEED= 10: PRINT "]";: GOSUB 831: SPEED= 255:TT = 0:BT = 12: GOSUB 611
  4. 21 TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 2: INVERSE : PRINT "10";: NORMAL : GOSUB 471: VTAB 1:TT = 0:BT = 15: GOSUB 611:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 2: PRINT "10";: HTAB 5: INVERSE : PRINT "LET";: NORMAL : GOSUB 471: VTAB 1:TT = 0:BT = 15: GOSUB 611:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 5: PRINT "LET";: HTAB 9: INVERSE : PRINT "A";: NORMAL : GOSUB 471: VTAB 1:TT = 0:BT = 15
  5. 31  GOSUB 611:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 9: PRINT "A";: HTAB 11: INVERSE : PRINT "=";: NORMAL : GOSUB 471: VTAB 1:TT = 0:BT = 15: GOSUB 611:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 11: PRINT "=";: HTAB 13: INVERSE : PRINT "33";: NORMAL : GOSUB 471: VTAB 1:TT = 0:BT = 15:TT = 15:BT = 24: GOSUB 681: VTAB 17: HTAB 13: PRINT "33";:TT = 0:BT = 15: GOSUB 611: GOSUB 471: VTAB 1: GOSUB 611:ET = 1
  6. 41 TT = 17:BT = 24: GOSUB 671: GOSUB 681: VTAB 19: GOSUB 721:W = 38:B = 10:T = 3:L = 1:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "To get the computer to print the": PRINT "contents of A, please type:": PRINT : PRINT "20 PRINT A": GOTO 41
  7. 51 SL = 2:BS = X: GOSUB 891: IF LN$ < >"20"  THEN  GOSUB 691: PRINT "You should start this PRINT": PRINT "statement by typing 20.  Please": PRINT "try again.": GOTO 41
  8. 61 X = X +2: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should follow the line": PRINT "number with PRINT A.  Please": PRINT "try again.": GOTO 41
  9. 71  GOSUB 901: ON E = 1 GOTO 41: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should type PRINT and": PRINT "follow it with the name of the": PRINT "variable you want to print (A).": GOTO 41
  10. 81  IF  MID$ (AN$,X,1) =  CHR$(34)  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "If you enclose the variable in": PRINT "quotation marks, you will print": PRINT "the letter A rather the contents": PRINT "of the variable.  Try again.": GOTO 41
  11. 91 SL =  LEN(AN$): FOR Y =  LEN(AN$) TO X  STEP  -1: IF  MID$ (AN$,Y,1) = " "  THEN SL = SL -1
  12. 101  IF  MID$ (AN$,Y,1) < >" "  THEN Y = X
  13. 111  NEXT Y:VA$(1) =  MID$ (AN$,X,SL -X +1): IF VA$(1) < >"A"  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should follow PRINT with only": PRINT "the variable name (A) to print": PRINT "the contents of A.  Try again.": GOTO 41
  14. 121 TT = 0:BT = 12: GOSUB 671: GOSUB 611:ET = 1
  15. 131 TT = 20:BT = 24: GOSUB 671: GOSUB 681: VTAB 21: GOSUB 721:W = 38:B = 9:T = 3:L = 1:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You should start with line 30,": PRINT "then type the END statement.": PRINT "Try again.": GOTO 131
  16. 141 SL = 2:BS = X: GOSUB 891: IF LN$ < >"30"  THEN  GOSUB 691: PRINT "You should put the END statement": PRINT "on line 30.  Please try again.": GOTO 131
  17. 151 X = X +2: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should follow the line": PRINT "number with END. Please try": PRINT "again.": GOTO 131
  18. 161  IF  MID$ (AN$,X,3) < >"END"  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should type END after": PRINT "the line number.  Try again.": GOTO 131
  19. 171 X = X +2: GOSUB 1091: ON E = 1 GOTO 141
  20. 181 TT = 12:BT = 24: GOSUB 681: VTAB 24: PRINT : PRINT :TT = 0:BT = 12: GOSUB 671: GOSUB 611:ET = 1:TT(1) = 20:BT(1) = 24:W(1) = 38:B(1) = 10:T(1) = 3:L(1) = 1:IV = 21: GOSUB 1261:TT = 15:BT = 24: GOSUB 681: VTAB 23: PRINT " 33":TT = 0:BT = 12: GOSUB 671: GOSUB 611
  21. 191 CP = 1: VTAB 8: HTAB 13: CALL  -958: GOSUB 721: GOSUB 521: IF E = 1  THEN 191
  22. 201  ON  ASC(AN$) = 78 GOTO 241
  23. 211 T = 3:B = 10:L = 1:W = 38:TT = 15:BT = 24: GOSUB 681:SV = 15: GOSUB 801:TT = 0:BT = 12: GOSUB 691: PRINT "Line 10 creates a variable called": PRINT "A and assigns the number 33 to": PRINT "that variable. (In other words,": PRINT "it puts 33 in the A mailbox.)": GOSUB 471
  24. 221 TT = 15:BT = 24: GOSUB 681:SV = 15: GOSUB 811:SV = 17: GOSUB 801:SV = 23: GOSUB 801:TT = 0:BT = 12: GOSUB 691: PRINT "Line 20 reads the contents of A": PRINT "(looks in the A mailbox) and": PRINT "prints what it finds there.": PRINT "In this case, the number 33.": GOSUB 471
  25. 231 TT = 15:BT = 24: GOSUB 681:SV = 17: GOSUB 811:SV = 23: GOSUB 811:SV = 19: GOSUB 801:TT = 0:BT = 12: GOSUB 691: PRINT : PRINT "Line 30 ends the program.": GOSUB 471:TT = 15:BT = 24: GOSUB 681:SV = 19: GOSUB 811:TT = 0:BT = 12: GOSUB 691: PRINT : PRINT "OK, let's go on.": GOSUB 471
  26. 241 TT = 0:BT = 24: GOSUB 671: VTAB 16: HTAB 2: GOSUB 831: PRINT " 20 PRINT A": HTAB 2: GOSUB 821:TT = 0:BT = 12: GOSUB 681: GOSUB 611: GOSUB 471: GOSUB 611:ET = 1
  27. 251 TT = 21:BT = 24: GOSUB 671: GOSUB 681: VTAB 22:CP = 0: GOSUB 721:W = 38:B = 10:T = 3:L = 1:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You should copy the LET statement": PRINT "in line 10, but replace 33 with": PRINT "another number.  Try it now.": GOTO 251
  28. 261 SL = 2:BS = X: GOSUB 891: IF LN$ < >"10"  THEN  GOSUB 691: PRINT "You should change the LET": PRINT "statement in line 10 by first": PRINT "typing 10.  Try again.": GOTO 251
  29. 271 X = X +2: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should follow the line": PRINT "number with LET A = your number.": PRINT "Please try again.": GOTO 251
  30. 281  GOSUB 931: ON E = 1 GOTO 251:XP = X: GOSUB 841
  31. 291  IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should assign a number to A": PRINT "by typing LET A = some number.": PRINT "Please try again.": GOTO 251
  32. 301  GOSUB 951: ON E = 1 GOTO 251:EP = SL: FOR Y = EP -1 TO XP  STEP  -1: IF  MID$ (AN$,Y,1) = " "  THEN SL = SL -1
  33. 311  IF  MID$ (AN$,Y,1) < >" "  THEN Y = XP
  34. 321  NEXT Y: IF SL = XP  THEN E = 1: GOTO 291
  35. 331 VA$(1) =  MID$ (AN$,X,SL -X): IF VA$(1) < >"A"  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "Normally you could choose the": PRINT "variable name, but you should use": PRINT "A this time.  Try again.": GOTO 251
  36. 341 EP = EP +1: GOSUB 1161: IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "For this simulation you should": PRINT "follow the equal mark with only": PRINT "one number without letters or": PRINT "characters.  Try again.": GOTO 251
  37. 351 VA$(2) =  MID$ (AN$,EP): IF  LEN(VA$(2)) >8  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "A number that long won't fit in": PRINT "this box.  Please use a number": PRINT "less than 8 characters long.": GOTO 251
  38. 355 VA(2) =  VAL( MID$ (AN$,EP))
  39. 361  IF VA(2) = 33  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You should type in a different": PRINT "value for A so that A is": PRINT "changed.  Please try again.": GOTO 251
  40. 371 TT = 12:BT = 24: GOSUB 681: VTAB 24: PRINT : PRINT : PRINT :TT = 0:BT = 12: GOSUB 671: GOSUB 611:ET = 1:TT(1) = 20:BT(1) = 24:W(1) = 38:B(1) = 10:T(1) = 3:L(1) = 1:IV = 21: GOSUB 1261: VTAB 23: PRINT VA(2):TT = 0:BT = 12: GOSUB 671: GOSUB 611: VTAB 6: HTAB 12: PRINT VA(2)".": GOSUB 471: GOSUB 611: GOSUB 471: GOSUB 611: GOSUB 471: GOSUB 611: GOSUB 471: GOSUB 611:ET = 1
  41. 381 TT = 20:BT = 24: GOSUB 671: GOSUB 681: VTAB 21: GOSUB 721:W = 38:B = 9:T = 3:L = 1:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You must type NEW and": PRINT "press RETURN to clear memory.": PRINT "Please try it now.": GOTO 381
  42. 391  IF  MID$ (AN$,X,3) < >"NEW"  THEN  GOSUB 691: PRINT "You typed " MID$ (BU$,BS)".": PRINT "NEW is the command you should use": PRINT "to clear memory.": PRINT "Please try again.": GOTO 381
  43. 401 X = X +2: GOSUB 1091: ON E = 1 GOTO 381
  44. 411 TT = 0:BT = 12: GOSUB 671: GOSUB 611: GOSUB 471:TT = 12:BT = 24: GOSUB 671:TT = 0:BT = 12: GOSUB 611:ET = 1
  45. 421 TT = 12:BT = 24: GOSUB 671: GOSUB 681: VTAB 14: GOSUB 721:W = 38:B = 10:T = 3:L = 1:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "Please load the NUMBER program": PRINT "by typing LOAD NUMBER. Try again.": GOTO 421
  46. 431 BS = X: GOSUB 1031: ON E = 1 GOTO 421: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "You typed " MID$ (BU$,BS)".": PRINT "You must follow the LOAD command": PRINT "with the program name (NUMBER).": PRINT "Please try again.": GOTO 421
  47. 441  IF  MID$ (AN$,X,6) < >"NUMBER"  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "The only way to load the NUMBER": PRINT "program is to call it by the": PRINT "right name.  Please try again.": GOTO 421
  48. 451 LD = 3:X = X +5: GOSUB 1091: ON E = 1 GOTO 421
  49. 461  PRINT : PRINT  CHR$(4);"RUN NUMERIC2": END 
  50. 471  POKE  -16368,0
  51. 481 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 1341: ON P < >13 GOTO 491: IF TE <225  THEN 481
  52. 491  IF P = 141  THEN TE = 0: CALL  -998: RETURN 
  53. 501 M$ = "Press RETURN": GOSUB 511: FOR Z = 1 TO 700: NEXT Z:M$ = "_____________": GOSUB 511: FOR Z = 1 TO 700: NEXT Z: GOTO 481
  54. 511  VTAB B: HTAB M +(((W -L) - LEN(M$))/2): PRINT M$;: RETURN 
  55. 521 E = 0: IF AN$ = ""  THEN E = 1: RETURN 
  56. 531  IF  ASC(AN$) < >89  AND  ASC(AN$) < >78  THEN E = 1
  57. 541  RETURN 
  58. 551  PRINT  CHR$(4);"OPEN CALLNAME": PRINT  CHR$(4);"READ CALLNAME": INPUT NA$: PRINT  CHR$(4);"CLOSE CALLNAME": RETURN 
  59. 561  PRINT : PRINT  CHR$(4);"OPEN CAT.NAME": PRINT  CHR$(4);"READ CAT.NAME"
  60. 571  GET I$: IF I$ < >"@"  THEN I$(1) = I$(1) +I$: GOTO 571
  61. 581  PRINT  CHR$(4);"CLOSE CAT.NAME": RETURN 
  62. 591  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";: NEXT BD: FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD
  63. 601  POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : RETURN 
  64. 611  PRINT  CHR$(4);"READ ";F$:S$ = "":A$ = "":NL = 1: INPUT S$: IF S$ = "%"  THEN  GOSUB 671: INPUT T,B,L,W: GOSUB 591: GOTO 641
  65. 621  IF S$ = "&"  THEN  GOSUB 601
  66. 631  FOR H = T +1 TO B -1: VTAB H: HTAB 1: CALL  -868: NEXT H
  67. 641  CALL 813:IN$ =  MID$ (IN$,1): IF IN$ = "^"  THEN 661
  68. 651  VTAB T +NL: HTAB 1:NL = NL +1: PRINT IN$;: GOTO 641
  69. 661  RETURN 
  70. 671  POKE 32,0: POKE 33,40: POKE 34,TT: POKE 35,BT: HOME : RETURN 
  71. 681  POKE 32,0: POKE 33,40: POKE 34,TT: POKE 35,BT: RETURN 
  72. 691 TT = 0:BT = 10: GOSUB 681: IF ET = 1  THEN ET = ET +1: GOSUB 591: GOTO 711
  73. 701  GOSUB 601
  74. 711  HTAB L: VTAB T +1: FOR H = T +1 TO B -1: VTAB H: HTAB 1: CALL  -868: NEXT H: VTAB T +1: RETURN 
  75. 721  PRINT  CHR$(4): POKE  -16368,0:AN$ = "": ON CP = 1 GOTO 741
  76. 731  HTAB 1: PRINT  CHR$(93);
  77. 741 R = 0: CALL 768: FOR J = 512 TO 736:X =  PEEK(J): ON X = 155 GOTO 1341: IF X = 141  THEN J = 736: GOTO 791
  78. 751  IF X = 162  THEN R = 1
  79. 761  IF R = 1  THEN 781
  80. 771 AN$ = AN$ + CHR$(X -128 -32 *(X >223)): GOTO 791
  81. 781 AN$ = AN$ + CHR$(X -128)
  82. 791  NEXT J:BU$ = AN$: RETURN 
  83. 801  VTAB SV: HTAB 1: FLASH : PRINT "*";: NORMAL : RETURN 
  84. 811  VTAB SV: HTAB 1: PRINT " ";: RETURN 
  85. 821  PRINT "30 END": RETURN 
  86. 831  PRINT "10 LET A = 33": RETURN 
  87. 841 E = 0
  88. 851  IF X > LEN(AN$)  THEN E = 1: RETURN 
  89. 861  ON  MID$ (AN$,X,1) < >" " GOTO 881
  90. 871 X = X +1: GOTO 851
  91. 881  RETURN 
  92. 891 LN$ =  MID$ (AN$,X,SL): RETURN 
  93. 901 E = 0: IF  MID$ (AN$,X,1) = "?"  THEN X = X +1: RETURN 
  94. 911 E = 0: IF  MID$ (AN$,X,5) = "PRINT"  THEN X = X +5: RETURN 
  95. 921 E = 1: GOSUB 691: PRINT "You typed "; MID$ (AN$,BS);".": PRINT "You didn't use PRINT.": PRINT "Please try again.": RETURN 
  96. 931 E = 0: IF  MID$ (AN$,X,3) = "LET"  THEN X = X +3: RETURN 
  97. 941 E = 1: GOSUB 691: PRINT "You typed "; MID$ (AN$,BS);".": PRINT "You should follow the": PRINT "line number with a LET statement.": PRINT "Please try again.": RETURN 
  98. 951 E = 0: FOR Y = X TO  LEN(AN$): IF  MID$ (AN$,Y,1) = "="  THEN SL = Y:E = 2:Y =  LEN(AN$)
  99. 961  NEXT Y: IF E < >2  THEN E = 1: GOSUB 691: PRINT "You typed " MID$ (BU$,BS)".": PRINT "You must follow the variable": PRINT "with an equal sign (=) and a": PRINT "number.  Please try again."
  100. 971  RETURN 
  101. 981  ON SL > LEN(AN$) GOTO 1001: IF  MID$ (AN$,SL,1) < > CHR$(34)  THEN SL = SL +1: GOTO 981
  102. 991  IF  MID$ (AN$,SL,1) =  CHR$(34)  THEN  RETURN 
  103. 1001 E = 1: GOSUB 691: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "You forgot to end your statement": PRINT "with a quotation mark.  Please": PRINT "try again.": RETURN 
  104. 1011 E = 1: GOSUB 691: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "It would help for now if you": PRINT "would enclose something inside": PRINT "the quotations.  Try again.": RETURN 
  105. 1021 E = 1: GOSUB 691: PRINT "You typed "; MID$ (AN$,BS);".": PRINT "To save a program to disk you": PRINT "should begin by typing SAVE.": PRINT "Please try again.": RETURN 
  106. 1031 E = 0: IF  MID$ (AN$,X,4) = "LOAD"  THEN X = X +4: RETURN 
  107. 1041 E = 1: GOSUB 691: PRINT "You typed "; MID$ (AN$,BS);".": PRINT "To load a program into memory": PRINT "you should begin by typing LOAD.": PRINT "Please try again.": RETURN 
  108. 1051 E = 0: IF  MID$ (AN$,X,3) = "RUN"  THEN X = X +2: RETURN 
  109. 1061 E = 1: GOSUB 691: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "You should have typed RUN.": PRINT "Please try again.": RETURN 
  110. 1071 E = 0: IF  MID$ (AN$,X,4) = "LIST"  THEN X = X +3: RETURN 
  111. 1081 E = 1: GOSUB 691: PRINT "You typed "; MID$ (BU$,BS);".": PRINT "You should have typed LIST.": PRINT "Please try again.": RETURN 
  112. 1091 E = 0: IF X > =  LEN(AN$)  THEN 1151
  113. 1101  FOR Y = X +1 TO  LEN(AN$): IF  MID$ (AN$,Y,1) < >" "  THEN E = 1
  114. 1111  NEXT Y: IF LD = 1  AND E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "You shouldn't type anything after": PRINT "the line number if you wish to": PRINT "to delete a line.  Try again.": RETURN 
  115. 1121  IF LD = 2  AND E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "Please don't type anything after": PRINT "the program name or it will be-": PRINT "come part of the name. Try again.": RETURN 
  116. 1131  IF LD = 3  AND E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "If you type anything after the": PRINT "program name the computer will": PRINT "try to find the wrong program.": PRINT "Please try again.": RETURN 
  117. 1141  IF E = 1  THEN  GOSUB 691: PRINT "You typed "; MID$ (BU$,BS)".": PRINT "Please don't type anything after": PRINT "the command.  It will just": PRINT "complicate things.  Try again.": RETURN 
  118. 1151  RETURN 
  119. 1161  IF EP > LEN(AN$)  THEN E = 1: RETURN 
  120. 1171 E = 0: FOR Y = EP TO  LEN(AN$): IF  MID$ (AN$,Y,1) < >" "  THEN E = 2:Y =  LEN(AN$)
  121. 1181  NEXT Y: IF E < >2  THEN E = 1: RETURN 
  122. 1191 E = 0:MM = 0:PM = 0: FOR Y = EP TO  LEN(AN$): ON  ASC( MID$ (AN$,Y,1)) < >46 GOTO 1211:PM = PM +1
  123. 1201  IF  MID$ (AN$,Y,2) = ".-"  THEN EP = Y
  124. 1211  IF  ASC( MID$ (AN$,Y,1)) = 45  THEN MM = MM +1
  125. 1221  IF MM >1  OR PM >1  THEN E = 1:Y =  LEN(AN$): GOTO 1251
  126. 1231  IF  ASC( MID$ (AN$,Y,1)) = 32  THEN 1251
  127. 1241  IF  ASC( MID$ (AN$,Y,1)) <45  OR  ASC( MID$ (AN$,Y,1)) = 47  OR  ASC( MID$ (AN$,Y,1)) >57  THEN E = 1:Y =  LEN(AN$)
  128. 1251  NEXT Y: RETURN 
  129. 1261 TT = TT(1):BT = BT(1):W = W(1):B = B(1):T = T(1):L = L(1): GOSUB 671: GOSUB 681: VTAB IV: GOSUB 721:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "Please type RUN and": PRINT "press RETURN.  Try again.": GOTO 1261
  130. 1271 BS = X: GOSUB 1051: ON E = 1 GOTO 1261: GOSUB 1091: ON E = 1 GOTO 1261
  131. 1281  RETURN 
  132. 1291 TT = TT(1):BT = BT(1):W = W(1):B = B(1):T = T(1):L = L(1): GOSUB 671: GOSUB 681: VTAB IV: GOSUB 721:X = 1: GOSUB 841: IF E = 1  THEN  GOSUB 691: PRINT "Please type LIST and": PRINT "press RETURN.  Try again.": GOTO 1291
  133. 1301 BS = X: GOSUB 1071: ON E = 1 GOTO 1291: GOSUB 1091: ON E = 1 GOTO 1291
  134. 1311  RETURN 
  135. 1321  PRINT : PRINT  CHR$(4);"OPEN ";F$: RETURN 
  136. 1331  PRINT : PRINT  CHR$(4);"CLOSE ";F$: RETURN 
  137. 1341  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: GOSUB 1331: PRINT : PRINT  CHR$(4);"RUN RUNMENU"
  138. 1351  RESUME